home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 5
/
Amiga Tools 5.iso
/
s
/
deliinsertdisk
< prev
next >
Wrap
AmigaDOS Script File
|
1996-07-16
|
990b
|
25 lines
.key VOLUME/A,DATABASE/A
.bra {
.ket }
;----------------------------------------------------------------
; -DISKINSERTED-Script- make yourself familiar how the script works
; to create your own (optimized) one. that what i call a "database"
; is infact only a poor textfile; maybe you can offer me a more
; complex database, i.e. an arexx script for FinalData or so ?
;----------------------------------------------------------------
C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "{VOLUME}" NONUM
If WARN
C:Type pipe:db.{$$} >NIL: ; clear the pipe
C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "default:" NONUM
If WARN
C:Type pipe:db.{$$} >NIL:
C:RequestChoice >NIL: "Error Message" "{DATABASE} has no default: entry!*NYou MUST provide at least an empty program." "Ok"
Skip AllOver
EndIf
EndIf
set progname `c:type pipe:db.{$$}`
echo ".key a,b/f*N.bra <*N.ket >*Necho <b>*N" >T:filter.{$$}
setenv DELIPROGRAM `execute T:filter.{$$} $progname`
Lab AllOver
unset progname